SuperHack/SuperHack CD.bin/CODING/VBASIC/AGAVB25.ZIP/VB.ZIP/GNEEDLES.FRM

Visual Basic Form | 1996-01-17 | 32.5 KB | 1,003 lines

VERSION 2.00
Begin Form NeedleDemo
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Needle Properties Demonstration"
   ClientHeight    =   5760
   ClientLeft      =   1980
   ClientTop       =   1815
   ClientWidth     =   8565
   Height          =   6165
   Left            =   1920
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   384
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   571
   Top             =   1470
   Width           =   8685
   Begin Frame Frame6
      BackColor       =   &H00C0C0C0&
      Caption         =   "Needle Size & Position Properties"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1275
      Left            =   3795
      TabIndex        =   68
      Top             =   1440
      Width           =   4650
      Begin HScrollBar HScroll1
         Height          =   240
         Index           =   0
         Left            =   1950
         Max             =   100
         TabIndex        =   5
         Top             =   390
         Width           =   2000
      End
      Begin HScrollBar HScroll1
         Height          =   240
         Index           =   1
         Left            =   1950
         Max             =   100
         TabIndex        =   9
         Top             =   645
         Width           =   2000
      End
      Begin HScrollBar HScroll1
         Height          =   240
         Index           =   2
         Left            =   1950
         Max             =   100
         TabIndex        =   69
         Top             =   900
         Width           =   2000
      End
      Begin Label Label2
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   " 0"
         Height          =   195
         Index           =   0
         Left            =   4035
         TabIndex        =   10
         Top             =   420
         Width           =   180
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "NeedleLength:"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   210
         Index           =   0
         Left            =   690
         TabIndex        =   23
         Top             =   405
         Width           =   1035
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "NeedleWidth:"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   210
         Index           =   1
         Left            =   765
         TabIndex        =   24
         Top             =   660
         Width           =   945
      End
      Begin Label Label2
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   " 0"
         Height          =   195
         Index           =   1
         Left            =   4035
         TabIndex        =   26
         Top             =   660
         Width           =   180
      End
      Begin Label Label2
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   " 0"
         Height          =   195
         Index           =   2
         Left            =   4035
         TabIndex        =   27
         Top             =   915
         Width           =   180
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "NeedleValue:"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   210
         Index           =   2
         Left            =   750
         TabIndex        =   30
         Top             =   915
         Width           =   960
      End
   End
   Begin Frame Frame5
      BackColor       =   &H00C0C0C0&
      Caption         =   "Needle Digital Properties"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1620
      Left            =   3795
      TabIndex        =   44
      Top             =   2760
      Width           =   4650
      Begin HScrollBar HScroll1
         Height          =   240
         Index           =   6
         Left            =   2040
         Max             =   5
         TabIndex        =   62
         Top             =   1275
         Width           =   2000
      End
      Begin HScrollBar HScroll1
         Height          =   240
         Index           =   5
         Left            =   2040
         Max             =   150
         Min             =   -150
         TabIndex        =   57
         Top             =   1020
         Width           =   2000
      End
      Begin HScrollBar HScroll1
         Height          =   240
         Index           =   4
         Left            =   2040
         Max             =   150
         Min             =   -150
         TabIndex        =   56
         Top             =   765
         Value           =   -150
         Width           =   2000
      End
      Begin CheckBox Check1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Needle Digital "
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "System"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Left            =   120
         TabIndex        =   45
         Top             =   360
         Value           =   1  'Checked
         Width           =   1710
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "NeedleDigitalDecimals:"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   210
         Index           =   7
         Left            =   285
         TabIndex        =   64
         Top             =   1305
         Width           =   1605
      End
      Begin Label Label2
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   " 0"
         Height          =   195
         Index           =   8
         Left            =   4065
         TabIndex        =   63
         Top             =   1275
         Width           =   180
      End
      Begin Label Label2
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   " 0"
         Height          =   195
         Index           =   7
         Left            =   4065
         TabIndex        =   61
         Top             =   1035
         Width           =   180
      End
      Begin Label Label2
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   " 0"
         Height          =   195
         Index           =   6
         Left            =   4065
         TabIndex        =   60
         Top             =   765
         Width           =   180
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "NeedleDigitalY:"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   210
         Index           =   6
         Left            =   795
         TabIndex        =   59
         Top             =   1050
         Width           =   1080
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "NeedleDigitalX:"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   210
         Index           =   5
         Left            =   825
         TabIndex        =   58
         Top             =   795
         Width           =   1065
      End
      Begin Label Colors
         BackColor       =   &H00000000&
         Height          =   225
         Index           =   19
         Left            =   1905
         TabIndex        =   55
         Top             =   390
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H00808080&
         Height          =   225
         Index           =   18
         Left            =   3105
         TabIndex        =   54
         Top             =   390
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H00FFFFFF&
         Height          =   225
         Index           =   17
         Left            =   2145
         TabIndex        =   53
         Top             =   390
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H000000FF&
         Height          =   225
         Index           =   16
         Left            =   3345
         TabIndex        =   52
         Top             =   390
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H0000FF00&
         Height          =   225
         Index           =   15
         Left            =   2385
         TabIndex        =   51
         Top             =   390
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H0000FFFF&
         Height          =   225
         Index           =   14
         Left            =   3585
         TabIndex        =   50
         Top             =   390
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H00FF0000&
         Height          =   225
         Index           =   13
         Left            =   2625
         TabIndex        =   49
         Top             =   390
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H00FF00FF&
         Height          =   225
         Index           =   12
         Left            =   3825
         TabIndex        =   48
         Top             =   390
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H000080FF&
         Height          =   225
         Index           =   11
         Left            =   2865
         TabIndex        =   47
         Top             =   390
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H00004040&
         Height          =   225
         Index           =   10
         Left            =   4065
         TabIndex        =   46
         Top             =   390
         Width           =   225
      End
   End
   Begin AGAUGE Gauge1
      Angle           =   0
      AutoRedraw      =   -1  'True
      AVersion        =   2.5
      BackgroundColor =   &H00C0C0C0&
      BevelInner      =   0  ' 0 - None
      BevelOuter      =   2  ' 2 - Inset
      BevelWidth      =   2
      BorderType      =   1  ' 1 - Bevel
      BorderWidth     =   10
      FontID          =   1
      FrameColor      =   &H00000000&
      FrameScaleX     =   0
      FrameScaleY     =   0
      FrameStyle      =   0  ' 0 - None
      Height          =   4185
      Left            =   120
      MouseControl    =   -1  'True
      OutlineAlign    =   0  ' 0 - Left
      OutlineColor    =   &H00000000&
      OutlineTitle    =   ""
      OutlineWidth    =   0
      Radius          =   0
      Shape           =   ""
      TabIndex        =   43
      Top             =   210
      Value           =   0
      Width           =   3600
      XScale          =   0
      YScale          =   0
      ZLoad           =   GNEEDLES.FRX:0000
   End
   Begin TextBox Text1
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   795
      Left            =   3780
      MultiLine       =   -1  'True
      TabIndex        =   40
      Top             =   4800
      Width           =   4650
   End
   Begin Frame Frame4
      BackColor       =   &H00C0C0C0&
      Caption         =   "Hub Properties"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1140
      Left            =   105
      TabIndex        =   29
      Top             =   4455
      Width           =   3585
      Begin HScrollBar HScroll1
         Height          =   240
         Index           =   3
         Left            =   1035
         Max             =   100
         TabIndex        =   65
         Top             =   720
         Width           =   2000
      End
      Begin Label Label2
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "0"
         Height          =   195
         Index           =   3
         Left            =   3180
         TabIndex        =   67
         Top             =   735
         Width           =   120
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Hub Scale:"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   210
         Index           =   3
         Left            =   150
         TabIndex        =   66
         Top             =   735
         Width           =   780
      End
      Begin Label HColors
         BackColor       =   &H00000000&
         Height          =   225
         Index           =   0
         Left            =   570
         TabIndex        =   4
         Top             =   360
         Width           =   225
      End
      Begin Label HColors
         BackColor       =   &H00808080&
         Height          =   225
         Index           =   5
         Left            =   1770
         TabIndex        =   39
         Top             =   360
         Width           =   225
      End
      Begin Label HColors
         BackColor       =   &H00FFFFFF&
         Height          =   225
         Index           =   1
         Left            =   810
         TabIndex        =   38
         Top             =   360
         Width           =   225
      End
      Begin Label HColors
         BackColor       =   &H000000FF&
         Height          =   225
         Index           =   6
         Left            =   2010
         TabIndex        =   37
         Top             =   360
         Width           =   225
      End
      Begin Label HColors
         BackColor       =   &H0000FF00&
         Height          =   225
         Index           =   2
         Left            =   1050
         TabIndex        =   36
         Top             =   360
         Width           =   225
      End
      Begin Label HColors
         BackColor       =   &H0000FFFF&
         Height          =   225
         Index           =   7
         Left            =   2250
         TabIndex        =   35
         Top             =   360
         Width           =   225
      End
      Begin Label HColors
         BackColor       =   &H00FF0000&
         Height          =   225
         Index           =   3
         Left            =   1290
         TabIndex        =   34
         Top             =   360
         Width           =   225
      End
      Begin Label HColors
         BackColor       =   &H00FF00FF&
         Height          =   225
         Index           =   8
         Left            =   2490
         TabIndex        =   33
         Top             =   360
         Width           =   225
      End
      Begin Label HColors
         BackColor       =   &H000080FF&
         Height          =   225
         Index           =   4
         Left            =   1530
         TabIndex        =   32
         Top             =   360
         Width           =   225
      End
      Begin Label HColors
         BackColor       =   &H00004040&
         Height          =   225
         Index           =   9
         Left            =   2730
         TabIndex        =   31
         Top             =   360
         Width           =   225
      End
   End
   Begin Frame Frame3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Needle Color"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1260
      Left            =   6600
      TabIndex        =   25
      Top             =   75
      Width           =   1830
      Begin Label Colors
         BackColor       =   &H00004040&
         Height          =   225
         Index           =   9
         Left            =   1275
         TabIndex        =   6
         Top             =   675
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H000080FF&
         Height          =   225
         Index           =   8
         Left            =   1275
         TabIndex        =   7
         Top             =   435
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H00FF00FF&
         Height          =   225
         Index           =   7
         Left            =   1035
         TabIndex        =   12
         Top             =   675
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H00FF0000&
         Height          =   225
         Index           =   6
         Left            =   1035
         TabIndex        =   13
         Top             =   435
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H0000FFFF&
         Height          =   225
         Index           =   5
         Left            =   795
         TabIndex        =   14
         Top             =   675
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H0000FF00&
         Height          =   225
         Index           =   4
         Left            =   795
         TabIndex        =   15
         Top             =   435
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H000000FF&
         Height          =   225
         Index           =   3
         Left            =   555
         TabIndex        =   16
         Top             =   675
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H00FFFFFF&
         Height          =   225
         Index           =   2
         Left            =   555
         TabIndex        =   17
         Top             =   435
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H00808080&
         Height          =   225
         Index           =   1
         Left            =   315
         TabIndex        =   18
         Top             =   675
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H00000000&
         Height          =   225
         Index           =   0
         Left            =   315
         TabIndex        =   19
         Top             =   435
         Width           =   225
      End
   End
   Begin Frame Frame2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Needle Style"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1275
      Left            =   4965
      TabIndex        =   20
      Top             =   60
      Width           =   1590
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "User"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   240
         Index           =   3
         Left            =   210
         TabIndex        =   41
         Top             =   960
         Width           =   1005
      End
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Arrow"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   240
         Index           =   2
         Left            =   210
         TabIndex        =   11
         Top             =   750
         Width           =   1005
      End
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Triangle"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   240
         Index           =   1
         Left            =   210
         TabIndex        =   22
         Top             =   540
         Width           =   1095
      End
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Pointer"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   240
         Index           =   0
         Left            =   210
         TabIndex        =   21
         Top             =   330
         Width           =   1125
      End
   End
   Begin Frame Frame1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Needle ID"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1275
      Left            =   3795
      TabIndex        =   0
      Top             =   60
      Width           =   1125
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "2"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "System"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   255
         Index           =   2
         Left            =   330
         TabIndex        =   3
         Top             =   810
         Width           =   615
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "1"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "System"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   255
         Index           =   1
         Left            =   330
         TabIndex        =   2
         Top             =   570
         Width           =   615
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "0"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "System"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   255
         Index           =   0
         Left            =   345
         TabIndex        =   1
         Top             =   330
         Value           =   -1  'True
         Width           =   615
      End
   End
   Begin Label Label1
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Needle Shape: (x,y pair list)"
      Height          =   240
      Index           =   4
      Left            =   3810
      TabIndex        =   42
      Top             =   4560
      Width           =   3015
   End
   Begin Label Label2
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   " "
      Height          =   195
      Index           =   5
      Left            =   1755
      TabIndex        =   8
      Top             =   4380
      Width           =   120
   End
   Begin Label Label2
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   " "
      Height          =   195
      Index           =   4
      Left            =   1785
      TabIndex        =   28
      Top             =   4770
      Width           =   90
   End
Sub Check1_Click ()
    gauge1.NeedleDigital = check1
End Sub
Sub Colors_Click (index As Integer)
    If index < 10 Then
        gauge1.NeedleColor = Colors(index).BackColor
    Else
        gauge1.NeedleDigitalColor = Colors(index).BackColor
    End If
End Sub
Sub Form_Load ()
    'initialize the gauge properties for the demo
    gauge1.Hubs = 1
    gauge1.Needles = 3
    gauge1.NeedleID = 0
    gauge1.NeedleShape = "0,1000, 500,700, -500,700 "
    gauge1.NeedleStyle = 0
    gauge1.NeedleColor = Colors(6).BackColor
    gauge1.NeedleLength = .65
    gauge1.NeedleWidth = .1
    gauge1.NeedleValue = 10
    gauge1.NeedleDigitalDecimals = 1
    gauge1.NeedleDigital = True
    gauge1.NeedleDigitalX = 0
    gauge1.NeedleDigitalY = -.66
    gauge1.NeedleDigitalColor = Colors(6).BackColor
    gauge1.NeedleID = 1
    gauge1.NeedleShape = "-250,0 -1000,600, -250,800, 0,1000, 250,800, 1000,600, 250,0"
    gauge1.NeedleStyle = 1
    gauge1.NeedleColor = Colors(3).BackColor
    gauge1.NeedleLength = .65
    gauge1.NeedleWidth = .1
    gauge1.NeedleValue = 35
    gauge1.NeedleDigitalDecimals = 1
    gauge1.NeedleDigital = True
    gauge1.NeedleDigitalX = -1#
    gauge1.NeedleDigitalY = 1.1
    gauge1.NeedleDigitalColor = Colors(3).BackColor
    gauge1.NeedleID = 2
    gauge1.NeedleShape = "0,1000,900,700,400,800,400,0,0,0,0,1000"
    gauge1.NeedleStyle = 3
    gauge1.NeedleColor = Colors(7).BackColor
    gauge1.NeedleLength = .65
    gauge1.NeedleWidth = .1
    gauge1.NeedleValue = 70
    gauge1.NeedleDigitalDecimals = 1
    gauge1.NeedleDigital = True
    gauge1.NeedleDigitalX = 1#
    gauge1.NeedleDigitalY = 1.1
    gauge1.NeedleDigitalColor = Colors(7).BackColor
    'set the scroll bars up correctly
    gauge1.NeedleID = 0
    hscroll1(0) = gauge1.NeedleLength * 100
    hscroll1(1) = gauge1.NeedleWidth * 100
    hscroll1(2) = gauge1.NeedleValue
    hscroll1(3) = gauge1.HubScale
    hscroll1(4) = gauge1.NeedleDigitalX * 100
    hscroll1(5) = gauge1.NeedleDigitalY * 100
    hscroll1(6) = gauge1.NeedleDigitalDecimals
    option2(gauge1.NeedleStyle) = True
    check1 = -gauge1.NeedleDigital
End Sub
Sub Gauge1_Change ()
    hscroll1(2) = gauge1.NeedleValue
End Sub
Sub Gauge1_Click ()
    option1(gauge1.NeedleID) = True
End Sub
Sub Gauge1_Turn ()
    hscroll1(2) = gauge1.NeedleValue
End Sub
Sub HColors_Click (index As Integer)
    gauge1.HubColor = HColors(index).BackColor
End Sub
Sub HScroll1_Change (index As Integer)
    Select Case index
        Case 0
            gauge1.NeedleLength = hscroll1(0) / 100
            label2(0) = hscroll1(0) / 100
        Case 1
            gauge1.NeedleWidth = hscroll1(1) / 100
            label2(1) = hscroll1(1) / 100
        Case 2
            gauge1.NeedleValue = hscroll1(2)
            label2(2) = hscroll1(2)
        Case 3
            gauge1.HubScale = hscroll1(3) / 100
            label2(3) = hscroll1(3) / 100
        Case 4
            gauge1.NeedleDigitalX = hscroll1(4) / 100
            label2(6) = hscroll1(4) / 100
        Case 5
            gauge1.NeedleDigitalY = hscroll1(5) / 100
            label2(7) = hscroll1(5) / 100
        Case 6
            gauge1.NeedleDigitalDecimals = hscroll1(6)
            label2(8) = hscroll1(6)
    End Select
End Sub
Sub HScroll1_Scroll (index As Integer)
    Select Case index
        Case 0
            gauge1.NeedleLength = hscroll1(0) / 100
            label2(0) = hscroll1(0) / 100
        Case 1
            gauge1.NeedleWidth = hscroll1(1) / 100
            label2(1) = hscroll1(1) / 100
        Case 2
            gauge1.NeedleValue = hscroll1(2)
            label2(2) = hscroll1(2)
        Case 3
            gauge1.HubScale = hscroll1(3) / 100
            label2(3) = hscroll1(3) / 100
        Case 4
            gauge1.NeedleDigitalX = hscroll1(4) / 100
            label2(6) = hscroll1(4) / 100
        Case 5
            gauge1.NeedleDigitalY = hscroll1(5) / 100
            label2(7) = hscroll1(5) / 100
        Case 6
            gauge1.NeedleDigitalDecimals = hscroll1(6)
            label2(8) = hscroll1(6)
    End Select
End Sub
Sub Option1_Click (index As Integer)
    gauge1.NeedleID = index
    hscroll1(0) = gauge1.NeedleLength * 100
    hscroll1(1) = gauge1.NeedleWidth * 100
    hscroll1(2) = gauge1.NeedleValue
    option2(gauge1.NeedleStyle) = True
    Text1 = gauge1.NeedleShape
    hscroll1(4) = gauge1.NeedleDigitalX * 100
    hscroll1(5) = gauge1.NeedleDigitalY * 100
    hscroll1(6) = gauge1.NeedleDigitalDecimals
    check1 = -gauge1.NeedleDigital
End Sub
Sub Option2_Click (index As Integer)
    gauge1.NeedleStyle = index
    Text1 = gauge1.NeedleShape
End Sub
Sub Text1_Change ()
    gauge1.NeedleShape = Text1
End Sub